home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / DDM INPUT ANYTHING DEMO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  764b  |  23 lines
  1. 5  REM  LOAD MACHINE LANGUAGE SUBROUTINE
  2. 10 D$ =  CHR$(4): PRINT D$"NOMONIOC"
  3. 20  TEXT : HOME 
  4. 30  VTAB 10: PRINT "LOADING INPUT ANYTHING CODE"
  5. 40  PRINT D$"BLOAD DDM INPUT ANYTHING.OBJ"
  6. 99  REM  PRINT PROMPT AND GET INPUT
  7. 100  HOME 
  8. 110  VTAB 10: PRINT "GO AHEAD, INPUT ANYTHING..."
  9. 120  FLASH : PRINT "->";: NORMAL : PRINT " ";
  10. 125  REM  INPUT ANYTHING CALL
  11. 126  REM  CAN USE ANY STRING VARIABLE
  12. 127  REM  OR CHANGE ADDRESS IF CODE IS
  13. 128  REM  RELOCATED
  14. 129  REM  ALL NORMAL ESC EDITING FEATURES ARE STILL ACTIVE
  15. 130  CALL 768,A$: REM  RETURNS INPUT IN A$
  16. 140  PRINT : PRINT "INPUT WAS ..."
  17. 150  PRINT A$
  18. 160  PRINT 
  19. 199  REM  GO AGAIN PROMPT
  20. 200  PRINT "GO AGAIN? (Y/N) ";: GET A$: PRINT A$
  21. 210  IF A$ = "Y" GOTO 100
  22. 220  IF A$ < >"N" GOTO 200
  23. 230  HOME : END